Imports BusinessLogic
Imports BusinessEntity
Imports System.Data
Imports System
Imports Microsoft.VisualBasic
Imports DevExpress.Web.ASPxUploadControl

Imports System.Web.UI
Imports System.IO

Imports System.Drawing

Partial Class Pages_Controls_ctlGestionarFichaDetalle
    Inherits System.Web.UI.UserControl
    'Public bNuevo As Boolean
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        btnSubir.Attributes.Add("OnClick", "javascript:window.open('frmCargarFoto.aspx','CargarFoto','width=800,height=600,left=200, top=200,directories=no,location=no,menubar=no,resizable=no,scrollbars=1,status=no,toolbar=no'); window.focus(); return false; ")

        If Not Me.IsPostBack Then
            panCargar.Visible = False
            If Not IsNothing(Request.QueryString("KEY")) Then
                Dim variable As String = "" & Request.QueryString("KEY").ToString()

                Session.Add("FichaIncripcionID", variable)

                If variable <> 0 Then
                    CargaFichaIncripcion()
                Else

                    NuevaFichaIncripcion()
                End If
            Else
                NuevaFichaIncripcion()
            End If
        End If
    End Sub

    Private Sub CargaFichaIncripcion()
        Dim objFichaInscripcion As New BusinessLogic.crFichaInscripcion
        Dim ds As BusinessEntity.CCFichaInscripcion
        btnSubir.Visible = True
        btnEnviar.Visible = True
        lblMensaje.Visible = False
        ds = objFichaInscripcion.GetDatosFichaIncripcion(DBUtilities.FichaIncripcionID)
        ' ds = objClientes.Get_Clientes_Consulta(Session["Codigo_CLIE"].ToString());

        txtFichaIncripcionID.Text = ds.TB_SOC_ESI_Ficha_Inscripcion_ID
        txtTitularID.Text = ds.TB_SOC_ESI_Titular_ID
        txtPersonaID.Text = ds.TB_SOC_ESI_Persona_ID
        'cargar las sesion con los datos
        Session.Add("TitularID", ds.TB_SOC_ESI_Titular_ID)
        Session.Add("PersonaID", ds.TB_SOC_ESI_Persona_ID)


        'CargarCarrera()

        txtEstadoSocioID.Text = ds.TB_SOC_ESI_EstadoSocio_ID

        'txtCarreraID.Text = ds.TB_SOC_ESI_Carrera_ID
        ' cmbCarrera.Text = objBase.Buscar_Campo(ds.TB_SOC_ESI_Carrera_ID, "TB_SOC_ESI_Carrera_ID", "descripcion", "TB_SOC_ESI_Carrera", "", "", "")
        cmbCarrera.Value = ds.TB_SOC_ESI_Carrera_ID
        'txtUbigeoID.Text = ds.TB_SOC_ESI_Ubigeo_ID
        ' cmbUbigeo.Text = objBase.Buscar_Campo(ds.TB_SOC_ESI_Ubigeo_ID, "TB_SOC_ESI_Ubigeo_ID", "descripcion", "TB_SOC_ESI_Ubigeo", "", "", "")
        cmbUbigeo.Value = ds.TB_SOC_ESI_Ubigeo_ID



        txtApellidoMaterno.Text = ds.apellidoMaterno
        txtApellidoPaterno.Text = ds.apellidoPaterno
        txtNombres.Text = ds.Nombres
        txtCodFicha.Text = ds.codFicha
        txtCodPersona.Text = ds.codPersona
        txtNumeroDocumento.Text = ds.nroDocumento
        cmbTipoDocumento.Value = ds.tipoDocumento

        txtEmail.Text = ds.Email
        txtDireccion.Text = ds.Direccion
        txtTelefonoCasa.Text = ds.telefonoCasa
        txtTelefonoCelular.Text = ds.telefonoCelular
        txtIngresoMensual.Value = ds.IngresoMensual
        txtRutaFoto.Text = ds.rutaFoto
        imgFoto.ImageUrl = ds.rutaFoto
        'Me.previewImage.src = ds.rutaFoto
        txtNacionalidad.Text = ds.Nacionalidad

        'cmbPaisNacimiento.Text = objBase.Buscar_Campo(ds.paisNacimiento, "ID", "PAIS", "viewPais", "", "", "")
        cmbPaisNacimiento.Value = ds.paisNacimiento

        cmbFechaInscripcion.Value = Convert.ToDateTime(ds.fechaInscripcion)
        

        cmbSexo.Value = ds.Sexo
        cmbEstadoPersona.Value = ds.estadoPersona 'A e I

        '' ''If ds.estadoCivil = 3 Then
        '' ''    cmbEstadoCivil.Text = "Divorciado"
        '' ''ElseIf ds.estadoCivil = 2 Then
        '' ''    cmbEstadoCivil.Text = "Casado"
        '' ''Else
        '' ''    cmbEstadoCivil.Text = "Soltero"
        '' ''End If
        cmbEstadoCivil.Value = Convert.ToInt32(ds.estadoCivil)
        'Me.cmbEstadoCivil.DataBind()
        'Me.cmbEstadoCivil.SelectedItem = Me.cmbEstadoCivil.Items.FindByValue(ds.estadoCivil) 'ds.estadoCivil

        cmbApelativo.Value = ds.Apelativo
        cmbFechaNacimiento.Value = Convert.ToDateTime(ds.fechaNacimiento)
        cmbLugarCobranza.Value = ds.lugarCobranza
        cmbEnvioCorrespondencia.Value = ds.envioCorrespondencia
        chkCarroPropio.Checked = ds.carroPropio
        chkCasaPropia.Checked = ds.casaPropia
       
        'referidos

        cmbReferido1.Value = ds.Referido1
        'cmbReferido1.Text = objBase.Buscar_Campo(ds.Referido1, "TB_SOC_ESI_Titular_ID", "NombreCompleto", "viewFichaInscripcion", "", "", "")
        cmbReferido2.Value = ds.Referido2
        'cmbReferido2.Text = objBase.Buscar_Campo(ds.Referido2, "TB_SOC_ESI_Titular_ID", "NombreCompleto", "viewFichaInscripcion", "", "", "")

      



    End Sub

    Private Sub GrabaFichaIncripcion()
        Dim objFichaInscripcion As New BusinessLogic.crFichaInscripcion
        Dim ds As New BusinessEntity.CCFichaInscripcion

        Try
            ds.TB_SOC_ESI_Ficha_Inscripcion_ID = Convert.ToInt32(txtFichaIncripcionID.Text)
            ds.TB_SOC_ESI_Titular_ID = Convert.ToInt32(txtTitularID.Text)
            ds.TB_SOC_ESI_Persona_ID = Convert.ToInt32(txtPersonaID.Text)
            'cargar las sesion con los datos

            ds.TB_SOC_ESI_EstadoSocio_ID = Convert.ToInt32(txtEstadoSocioID.Text)


            'ds.TB_SOC_ESI_Carrera_ID = Convert.ToInt32(txtCarreraID.Text)
            'ds.TB_SOC_ESI_Ubigeo_ID = Convert.ToInt32(txtUbigeoID.Text)

            ds.TB_SOC_ESI_Carrera_ID = Convert.ToInt32(cmbCarrera.Value)
            ds.TB_SOC_ESI_Ubigeo_ID = Convert.ToInt32(cmbUbigeo.Value)


            ds.apellidoMaterno = txtApellidoMaterno.Text

            ds.apellidoPaterno = txtApellidoPaterno.Text
            ds.Nombres = txtNombres.Text
            ds.codFicha = Convert.ToInt32(txtCodFicha.Text)
            ds.codPersona = Convert.ToInt32(txtCodPersona.Text)
            ds.nroDocumento = txtNumeroDocumento.Text
            ds.tipoDocumento = cmbTipoDocumento.Value
            ds.Email = txtEmail.Text
            ds.Direccion = txtDireccion.Text
            ds.telefonoCasa = txtTelefonoCasa.Text
            ds.telefonoCelular = txtTelefonoCelular.Text
            ds.IngresoMensual = txtIngresoMensual.Value
            ds.rutaFoto = txtRutaFoto.Text
            ds.Nacionalidad = txtNacionalidad.Text
            ds.paisNacimiento = cmbPaisNacimiento.Value
            ds.fechaInscripcion = Format(cmbFechaInscripcion.Value, "dd/MM/yyyy")
            ds.Sexo = cmbSexo.Value
            ds.estadoPersona = cmbEstadoPersona.Value  'A e I
            ds.estadoCivil = Convert.ToInt32(cmbEstadoCivil.Value)
            ds.Apelativo = cmbApelativo.Value
            ds.fechaNacimiento = Format(cmbFechaNacimiento.Value, "dd/MM/yyyy")
            ds.lugarCobranza = cmbLugarCobranza.Value
            ds.envioCorrespondencia = cmbEnvioCorrespondencia.Value
            ds.carroPropio = Convert.ToByte(chkCarroPropio.Checked)
            ds.casaPropia = Convert.ToByte(chkCasaPropia.Checked)
            ds.TB_SOC_ESI_EstadoSocio_ID = 1
            ds.Referido1 = Convert.ToInt32(cmbReferido1.Value)
            ds.Referido2 = Convert.ToInt32(cmbReferido2.Value)



            If objFichaInscripcion.GrabarFichaInscripcion(ds) Then

                ''If ds.TB_SOC_ESI_Titular_ID = 0 Then
                ''    Dim iTitularid As String
                ''    iTitularid = GetLastTitularID()
                ''    Response.Redirect("~/Pages/frmDetalleFicha.aspx?KEY=" + iTitularid)
                ''Else
                Response.Redirect("~/Pages/frmGestionarFicha.aspx")
                '' ''End If

            Else

                lblMensaje.Visible = True
                lblMensaje.Text = "No Grabo"
            End If


        Catch ex As System.IO.FileNotFoundException
            lblMensaje.Visible = True
            lblMensaje.Text = "No Grabo" 'ex.Message


        Catch ex As Exception

            lblMensaje.Visible = True
            lblMensaje.Text = "No Grabo" ' ex.Message

        End Try

    End Sub


    Private Sub NuevaFichaIncripcion()

        'Me.bNuevo = True
        txtFichaIncripcionID.Text = 0
        txtTitularID.Text = 0
        txtPersonaID.Text = 0
        'cargar las sesion con los datos
        Session.Add("TitularID", 0)
        Session.Add("PersonaID", 0)

        txtEstadoSocioID.Text = 0


        txtCarreraID.Text = 0
        txtUbigeoID.Text = 0
        cmbPaisNacimiento.Value = ""



        txtApellidoMaterno.Text = ""
        txtApellidoPaterno.Text = ""
        txtNombres.Text = ""
        txtCodFicha.Text = 0
        txtCodPersona.Text = 0

        txtNumeroDocumento.Text = ""
        cmbTipoDocumento.Value = "DNI"

        txtEmail.Text = ""
        txtDireccion.Text = ""
        txtTelefonoCasa.Text = ""
        txtTelefonoCelular.Text = ""
        txtIngresoMensual.Value = 800
        txtRutaFoto.Text = ""
        txtNacionalidad.Text = ""

        cmbFechaInscripcion.Value = Now()

        cmbSexo.Value = "Hombre"
        cmbEstadoPersona.Value = "A"
        cmbEstadoCivil.Value = "1"
        cmbApelativo.Value = "Sr."
        cmbFechaNacimiento.Value = Now()
        cmbLugarCobranza.Value = "Oficina"
        cmbEnvioCorrespondencia.Value = "Si"
        chkCarroPropio.Checked = 0
        chkCasaPropia.Checked = 0
        panCargar.Visible = True




    End Sub

    Private Sub CargaPersona(ByVal NroDocumento As String)
        Dim objPersona As New BusinessLogic.crPersona
        Dim ds As BusinessEntity.CCPersona
        ds = objPersona.GetDatosPersonaPorNroDocumento(NroDocumento)
        txtPersonaID.Text = ds.TBSOCESIPersonaID
        txtApellidoMaterno.Text = ds.ApellidoMaterno
        txtApellidoPaterno.Text = ds.ApellidoPaterno
        txtNombres.Text = ds.Nombres
        txtCodPersona.Text = ds.CodPersona
        txtNumeroDocumento.Text = ds.NroDocumento
        cmbTipoDocumento.Value = ds.TipoDocumento
        txtIngresoMensual.Value = ds.IngresoMensual
        cmbSexo.Value = ds.Sexo
        cmbEstadoPersona.Value = ds.EstadoPersona 'A e I
        If ds.FechaNacimiento = "" Then
            cmbFechaNacimiento.Value = Now()
        Else
            cmbFechaNacimiento.Value = Convert.ToDateTime(ds.FechaNacimiento)
        End If

    End Sub




    Protected Sub btnCargar_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim valor As String = txtDni.Text
        If valor <> "" Then
            Call CargaPersona(valor)
        End If
    End Sub

    Protected Sub btnGrabar_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        GrabaFichaIncripcion()
    End Sub

    Sub GrabarDPresentados()
        'Dim chkList As Anthem.CheckBoxList

        'chkList.Items.Items.Item().
    End Sub

    Sub GrabarFichaEnviada()
        Dim objFichaInscripcion As New BusinessLogic.crFichaInscripcion
        Dim ds As New BusinessEntity.CCFichaInscripcion

        Try

            If objFichaInscripcion.GrabarEnvioDeFicha(DBUtilities.FichaIncripcionID) Then

                
                Response.Redirect("~/Pages/frmGestionarFicha.aspx")


            Else

                lblMensaje.Visible = True
                lblMensaje.Text = "No Grabo"
            End If

        Catch ex As System.IO.FileNotFoundException
            lblMensaje.Visible = True
            lblMensaje.Text = "No Envio" 'ex.Message


        Catch ex As Exception

            lblMensaje.Visible = True
            lblMensaje.Text = "No Envio" ' ex.Message

        End Try

    End Sub

    Protected Sub btnEnviar_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        GrabarFichaEnviada()
    End Sub

    Function GetLastTitularID() As String
        Dim tmpDato As String
        Dim objBase As New BusinessLogic.crConsulta

        tmpDato = objBase.Buscar_Campo(txtNumeroDocumento.Text, "nroDocumento", "TB_SOC_ESI_Titular_ID", "viewFichaInscripcion", "", "", "").ToString
        GetLastTitularID = Val(tmpDato)
    End Function
    
End Class
